Calculatrices Casio Graphiques : Jeux, programmes, cours, pompes, astuces et programmation sur calculatrice graphique Casio et ClassPad 300 : programmes casio et jeux casio...

If C=55:Then 40G
44H
For 40Q To 95 Step 4
cos QxQ+14R
F-Line G,H,Q,R
RH
QG
Next
0W
1J
V-30V
For 1T To 18
F-Line 95,11,Ran#x30+80,Ran#x15+10
Next
For 1T To 600
Next
IfEnd
If C=2:Then F-Line A+25,B+49,A+30,B+39
F-Line A+30,B+39,A+21,B+25
F-Line A+22,B+27,A+34,B+20
F-Line A+27,B+35,A+37,B+29
F-Line A+29,B+23,A+22,B+16
F-Line A+26,B+20,A+37,B+9
F-Line A+22,B+16,A+14,B+5
F-Line A+22,B+16,A+30,B+4
IfEnd
If C=3:Then Cls
3P
Prog "CLAD"
1H
19Q
For 18G To 33 Step H
H+0.2H
Q-HQ
F-Line G,63,G,11
F-Line Q,63,Q,11
Next
IfEnd
If C=4:Then Cls
RclPict 1
2P
Prog "CLAD"
For 94F To 25 Step -2
F-Line F,26,F-3,26
F-Line F-2,25,F-2,27
Next
For 1T To 20
Int (Ran#x20+5)G
Int (Ran#x30+10)H
Int (Ran#x20+5)I
Int (Ran#x30+10)J
F-Line G,H,I,J
Next
For 1T To 400
Next
IfEnd
If C=5:Then Cls
RclPict 1
3P
Prog "CLAD"
For 1T To 30
Int (Ran#x30)G
Int (Ran#x30)R
PlotOn S+G,R+H
Next
For 1T To 300
Next
IfEnd
If C=10 And O4:Then Cls
RclPict 1
1P
Prog "CLAD"
F-Line 19,45,95,12
For 1T To 20
Int (Ran#x40+70)Q
Int (Ran#x30+10)R
F-Line 95,12,Q,R
Next
For 1T To 300
Next
IfEnd
If C=11 And O=1:Then For 45T To 63 Step 2
F-Line 19,45,19,T
Next
For 63T To 30 Step -3
F-Line 95,63,95,T
F-Line 99,63,99,T
F-Line 103,63,103,T
Next
Circle 99,20,10
For 99T To 19 Step -5
F-Line 99,20,T,20
Next
Int (-V5)W
Int (V-V5)V
IfEnd
If C=11 And O=2:Then For 17T To 47 Step 5
Text T,1," "
Next
40A
1B
1X
Prog "MONSTRE"
Circle 58,29,5
For 1T To 90
Int (Ran#x126+1)I
Int (Ran#x53+10)K
F-Line 58,29,I,K
Next
1000W
Int (V3)V
80A
12B
IfEnd
If C=12 And O=2:Then Circle 20,29,5
180G
14I
For 1H To 300 Step 10
G+3G
I+3I
F-Line I+5xcos H,29+5xsin H,I+cos G,29+sin G
Next
For 1T To 30
F-Line Ran#x30+90,Ran#x40+10,Ran#x30+90,Ran#x40+10
Next
V-150V
For 1T To 300
Next
IfEnd
If O=4 And C=10:Then AQ
BF
3P
For 7K To 47 Step 5
Text K,3," "
Next
70A
9B
0H
Prog "SEPHIROT"
For 1S To 300
Next
V-Int (Ran#x20+50)V
QA
FB
Return
IfEnd
If O=4 And C=11:Then For 7G To 47 Step 5
Text G,3," "
Next
1P
AQ
BF
3A
9B
Prog "SEPHIROT"
4P
Prog "SEPHIROT"
0H
0I
For 16G To 105 Step 2
F-Line G,B+16,G+2,B+18
F-Line G,B+16+H,G,B+16-I
B+16+H<63H+0.5H
B+16-I>10I+0.5I
Next
0W
QA
FB
V-Int (Ran#x100+1)V
IfEnd
If C=12 And O=4:Then For 7G To 47 Step 5
Text G,3," "
Next
AQ
BF
3A
9B
1P
Prog "SEPHIROT"
4P
Prog "SEPHIROT"
For 16A To 100 Step 2
F-Line A,B+16,A+2,B+16
Next
For 100A To 16 Step -4
F-Line A,B+17,A-2,B+17
F-Line A,B+15,A-2,B+15
Next
11C
QA
FB
-50W
V-50V
M>5M-5M
Return
IfEnd